home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v1.d64 / listmaker (.txt) < prev    next >
Commodore BASIC  |  2009-01-19  |  740b  |  27 lines
  1. 100 U$=CHR$(34):V$=CHR$(44)
  2. 110 PRINT"[147]";U$;"LISTMAKER";U$;" MAKES DATA";:PRINT"FILES FOR SPELLING I"
  3. 120 PRINT"AND SPELLING II.":PRINT
  4. 130 PRINT"WHEN IT IS RUN";V$;"IT WILL";:PRINT"PROMPT YOU FOR A WORD.";
  5. 140 PRINT"AFTER ENTERING IT";V$;" HIT";:PRINT U$;"RETURN";U$;". THE CYCLE"
  6. 150 PRINT"THEN REPEATS.":PRINT:
  7. 160 PRINT"AFTER ENTERING YOUR":PRINT"LAST WORD";V$;" ENTER ZERO"
  8. 170 PRINT"AT THE NEXT PROMPT.":PRINT"YOU WILL THEN BE TOLD"
  9. 180 PRINT"TO SAVE THE WORD FILE":PRINT"TO TAPE.":PRINT
  10. 190 PRINT"YOU MAY WANT TO SAVE":PRINT"IT RIGHT AFTER ";U$;"LIST-"
  11. 200 PRINT "MAKER";U$;"ON THE SAME TAPE"
  12. 210 PRINT"PRESS ANY KEY TO BEGN[157][148]I"
  13. 220 GET NE$:IF NE$="" THEN 220
  14. 230 PRINT"[147]":DIM W$(51)
  15. 240 I=1
  16. 250 PRINT ITAB(5);
  17. 260 INPUT W$(I)
  18. 270 IF W$(I)="0" THEN 300
  19. 280 I=I+1
  20. 290 GOTO 250
  21. 300 OPEN 2,1,1,"WORD LIST"
  22. 310 FOR N=1 TO I
  23. 320 PRINT#2,W$(N)
  24. 330 NEXT
  25. 340 CLOSE 2
  26. 350 END
  27.